1 PRINT"[149][147]":POKE53280,7:POKE53281,7:PRINT"     ADRESSENVERWALTUNG VON S. MEIER"
3 PRINT"              [1] EINGABE":PRINT"              [2] AUSGABE"
5 PRINT"              [3] AENDERN":PRINT"              [4] LOESCHEN"
7 GETA$:ONVAL(A$)GOSUB9,25,37,53:GOTO7
9 PRINT"[147]"
11 INPUT"[129]NACHNAME  : [149]";N$:INPUT"[129]VORNAME   : [149]";N$(0)
13 INPUT"[129]STRASSE   : [149]";N$(1):INPUT"[129]P.LEITZAHL: [149]";N$(3)
15 INPUT"[129]WOHNORT   : [149]";N$(2):INPUT"[129]TELEFON   : [149]";N$(4)
17 PRINT"RICHTIG ? <J/N>"
19 GETRI$:IFRI$<>"J"ANDRI$<>"N"THEN19
21 IFRI$="N"THENPRINT"":GOTO11
23 Z$=N$+",S,W":OPEN2,8,2,Z$:FORI=0TO4:PRINT#2,N$(I):NEXT:CLOSE2:GOSUB55:GOTO33
25 INPUT"[147][129]NACHNAME :[149]";N$:Z$=N$+"*"+",S,R":OPEN2,8,2,Z$:AN$=N$
27 FORI=0TO4:INPUT#2,N$(I):NEXTI:CLOSE2:GOSUB55:PRINT"[129]VORNAME   : [149]"N$(0)
29 PRINT"[129]STRASSE   : [149]"N$(1):PRINT"[129]P.LEITZAHL: [149]"N$(3)
31 PRINT"[129]WOHNORT   : [149]"N$(2):PRINT"[129]TELEFON   : [149]"N$(4):IFA=1THENA=0:RETURN
33 GETA$:IFA$=""THEN33
35 RUN
37 A=1:GOSUB25
39 INPUT"";N$:INPUT"";N$(0)
41 INPUT"";N$(1):INPUT"";N$(3):INPUT"";N$(2)
43 INPUT"";N$(4)
45 PRINT"RICHTIG ? <J/N>"
47 GETRI$:IFRI$<>"J"ANDRI$<>"N"THEN47
49 IFRI$="N"THENPRINT"":GOTO39
51 Z$="S:"+AN$:OPEN15,8,15,Z$:CLOSE15:GOSUB55:GOTO23
53 INPUT"[147]WELCHER NAME ";N$:Z$="S:"+N$:OPEN15,8,15,Z$:CLOSE15:GOSUB55:GOSUB33
55 V=PEEK(214):OPEN15,8,15:INPUT#15,N,F$:CLOSE15:POKE214,24:SYS58640
57 PRINT"[144]    DISK-STATUS  :  [149]"F$"[145]":POKE214,V:SYS58640:RETURN